Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/GRAPHICS/IMGLIB95/URUBBERB.PA_/URUBBERB.PA

Text File | 1996-03-31 | 8KB | 226 lines

{
Written by Jan Dekkers and Kevin Adams (c) 1995, 1996. If you are a non
registered client, you may use or alter this demo only for evaluation
purposes.

Copyright by SkyLine Tools. All rights reserved.

Part of Imagelib VCL/DLL Library.
}

unit Urubberb;

{Includes settings to compile in either 16 or 32 bit}
{$I DEFILIB.INC}

interface

uses
{$IFDEF DEL32}
  Windows,
{$ELSE}
  WinTypes,
  WinProcs,
{$ENDIF}
  DLL95V1,  {ImageLib Dll interface and misc. functions}
  SysUtils,
  Messages,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  TMultiP,  {PMultiImage VCL component}
  StdCtrls,
  IToolB,   {PMultiImage Toolbar VCL component}
  Preview;


type
  TRubberbandForm = class(TForm)
    PMultiImage1: TPMultiImage;
    Label1: TLabel;
    MImageToolBar1: TMImageToolBar;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    Label2: TLabel;
    RadioButton8: TRadioButton;
    RadioButton11: TRadioButton;
    ThumbPreview1: TThumbPreview;
    Button2: TButton;
    procedure PMultiImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PMultiImage1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PMultiImage1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CopyModeClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pointStart: TPoint;
    pointEnd  : TPoint;
    bLeftDown : boolean;
    procedure DrawRubberband;
  end;

var
  RubberbandForm: TRubberbandForm;

implementation

{$R *.DFM}
{------------------------------------------------------------------------}
procedure TRubberbandForm.PMultiImage1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  bLeftDown := false;
  if button = mbLeft then begin
    PMultiImage1.ResetImage;
    bLeftDown := true;
    pointStart.X := X;
    pointStart.Y := Y;
    pointEnd.X := X;
    pointEnd.Y := Y;
  end;
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.PMultiImage1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if not bLeftDown then exit;
  DrawRubberband;
  pointEnd.x := X;
  pointEnd.y := Y;
  DrawRubberband;
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.PMultiImage1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if not bLeftDown then exit;
  DrawRubberband;
  bLeftDown := false;
  pointEnd.X := X;
  pointEnd.Y := Y;
  {Zoom , flip or rotate image}
  PMultiImage1.TransformImage(Rect(pointStart.X, pointStart.Y, pointEnd.X, pointEnd.Y));
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.DrawRubberband;
begin
  SetROP2(PMultiImage1.Canvas.handle, R2_NOT);
  PMultiImage1.Canvas.moveto(pointStart.x, pointStart.y);
  PMultiImage1.Canvas.lineto(pointStart.x, pointEnd.y);
  PMultiImage1.Canvas.lineto(pointEnd.x, pointEnd.y);
  PMultiImage1.Canvas.lineto(pointEnd.x, pointStart.y);
  PMultiImage1.Canvas.lineto(pointStart.x, pointStart.y);
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.Button1Click(Sender: TObject);
begin
    {Show or hide the toolbar}
    MImageToolBar1.ShowToolbar:= not MImageToolBar1.ShowToolbar;
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   RubberbandForm:=Nil;
   Action:=caFree;
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.CopyModeClick(Sender: TObject);
begin
 If radiobutton1.checked then
   PMultiImage1.Canvas.CopyMode:=cmBlackness;
 If radiobutton2.checked then
   PMultiImage1.Canvas.CopyMode:=cmDstInvert;
 If radiobutton3.checked then
   PMultiImage1.Canvas.CopyMode:=cmMergeCopy;
 If radiobutton4.checked then
   PMultiImage1.Canvas.CopyMode:=cmMergePaint;
 If radiobutton5.checked then
   PMultiImage1.Canvas.CopyMode:=cmNotSrcCopy;
 If radiobutton6.checked then
   PMultiImage1.Canvas.CopyMode:=cmNotSrcErase;
 If radiobutton7.checked then
   PMultiImage1.Canvas.CopyMode:=cmPatCopy;
 If radiobutton11.checked then
   PMultiImage1.Canvas.CopyMode:=cmPatInvert;
 If radiobutton8.checked then
   PMultiImage1.Canvas.CopyMode:=cmPatPaint;
 If radiobutton12.checked then
   PMultiImage1.Canvas.CopyMode:=cmSrcAnd;
 If radiobutton9.checked then
   PMultiImage1.Canvas.CopyMode:=cmSrcCopy;
 If radiobutton13.checked then
   PMultiImage1.Canvas.CopyMode:=cmSrcErase;
 If radiobutton10.checked then
   PMultiImage1.Canvas.CopyMode:=cmSrcInvert;
 If radiobutton14.checked then
   PMultiImage1.Canvas.CopyMode:=cmSrcPaint;
 If radiobutton15.checked then
   PMultiImage1.Canvas.CopyMode:=cmWhiteness;

 PMultiImage1.Invalidate;
end;

{------------------------------------------------------------------------}

procedure TRubberbandForm.Button2Click(Sender: TObject);
begin
 ThumbPreview1.PreviewsDir:=ExtractFilePath(Application.Exename);
 ThumbPreview1.DataFileDir:=ExtractFilePath(Application.Exename);
 If ThumbPreview1.Execute then
   PMultiImage1.Imagename:=ThumbPreview1.filename;
end;
{------------------------------------------------------------------------}

procedure TRubberbandForm.FormCreate(Sender: TObject);
begin
 MImageToolBar1.PreviewsDir:=ExtractFilePath(Application.Exename);
end;


end.
{cmBlackness    Turns all output black.
cmDstInvert    Inverts the destination bitmap.
cmMergeCopy    Combines the pattern and the source bitmap by using the Boolean AND operator.
cmMergePaint    Combines the inverted source bitmap with the destination bitmap by using the Boolean OR operator.
cmNotSrcCopy    Copies the inverted source bitmap to the destination.
cmNotSrcErase    Inverts the result of combining the destination and source bitmaps by using the Boolean OR operator.
cmPatCopy    Copies the pattern to the destination bitmap with the pattern by using the Boolean XOR operator.
cmPatInvert    Combines the destination bitmap with the pattern by using the Boolean XOR operator
cmPatPaint    Combines the inverted source bitmap with the pattern by using the Boolean OR operator. Combines the result of this operation with the destination bitmap by using the Boolean OR operator.
cmSrcAnd    Combines pixels from the destination and source bitmaps by using the Boolean AND operator.
cmSrcCopy    Copies the source bitmap to the destination bitmap.
cmSrcErase    Inverts the destination bitmap and combines the result with the source bitmap by using the Boolean AND operator.
cmSrcInvert    Combines pixels from the destination and source bitmaps by using the Boolean XOR operator.
cmSrcPaint    Combines pixels from the destination and source bitmaps by using the Boolean OR operator.
cmWhiteness    Turns all output white.}